home *** CD-ROM | disk | FTP | other *** search
/ MacHome 1999 February/March / MacHome CD (February and March 1999).iso / Edutainment / INFOHIGHWAYDEMOS / demo / MENU.DCR / scripts_5_a.ls < prev    next >
Encoding:
Text File  |  1999-09-16  |  983 b   |  37 lines
  1. on enterFrame
  2.   global experimenterMenu
  3.   set ActiveStartspr to 3
  4.   set seBrancher to ActiveStartspr
  5.   set startBalls to 4
  6.   set seBrancherBall to startBalls
  7.   set diffuserBall to startBalls + 1
  8.   set correspondreBall to startBalls + 2
  9.   set echangerBall to startBalls + 3
  10.   set naviguerBall to startBalls + 4
  11.   set connexionBall to startBalls + 5
  12.   set startHighLightSpr to 10
  13.   set connexion to startHighLightSpr
  14.   set startHotSpot to 11
  15.   set connexionHS to startHotSpot
  16.   set ro to rollOver()
  17.   puppetizeExclude(0, ro - (startHotSpot - startHighLightSpr), connexion, connexion)
  18.   updateStage()
  19.   case ro of
  20.     seBrancher, seBrancherBall:
  21.       go(the frame)
  22.     connexionHS, connexionBall:
  23.       puppetSprite(connexion, 1)
  24.       set the member of sprite connexion to member "connexion"
  25.       updateStage()
  26.       go(the frame)
  27.     otherwise:
  28.       depuppetize(connexion, connexion)
  29.       updateStage()
  30.       go("seBrancherClose")
  31.   end case
  32. end
  33.  
  34. on exitFrame
  35.   go(the frame)
  36. end
  37.